home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / background_5409.txt < prev    next >
Text File  |  1990-08-07  |  2KB  |  83 lines
  1. -- background: 5409 from stack: in.0-2
  2. -- bmap block id: 36466
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: learn more
  6. ----- HyperTalk script -----
  7. -- This handler goes back to the last card if the user clicks
  8. -- outside the "window".
  9. on mouseUp
  10.   if "field" is not in the target and "button" is not in the target then goBack
  11. end mouseUp
  12.  
  13. -- This handler stores the name of the last card.
  14. on goBack
  15.   go cd "How do I learn " of stack "Intro to HyperCard 2.0"
  16. end goBack
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 01
  21. -- high flags: 0000
  22. -- rect: left=56 top=83 right=193 bottom=417
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 174
  27. -- text size: 14
  28. -- style flags: 0
  29. -- line height: 15
  30. -- part name: 
  31.  
  32.  
  33. -- part 2 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=47 top=59 right=196 bottom=424
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: wind
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=54 top=61 right=76 bottom=74
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: closebox
  59. ----- HyperTalk script -----
  60. -- This handler sets the cursor to simulate a real closeBox.
  61. on mouseEnter
  62.   set the cursor to "arrow"
  63. end mouseEnter
  64.  
  65. -- This handler sets the cursor to simulate a real closeBox.
  66. on mouseWithIn
  67.   repeat until the mouseloc is not within the rect of me or the mouse is down
  68.     set the cursor to "arrow"
  69.   end repeat
  70.   if the mouse is down then
  71.     send mouseUp to me
  72.   end if
  73. end mouseWithIn
  74.  
  75. -- This handler simulates clicking in a closeBox.
  76. on mouseUp
  77.   set the icon of me to 7937
  78.   wait 15
  79.   set the icon of me to 0
  80.   goBack
  81. end mouseUp
  82.  
  83.